home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / dev / lang / Python20_Src.lha / Python20_source / Python / hypot.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-10-26  |  280 b   |  24 lines
  1. /* hypot() replacement */
  2.  
  3. #include "config.h"
  4. #include "pyport.h"
  5.  
  6. double hypot(double x, double y)
  7. {
  8.     double yx;
  9.  
  10.     x = fabs(x);
  11.     y = fabs(y);
  12.     if (x < y) {
  13.         double temp = x;
  14.         x = y;
  15.         y = temp;
  16.     }
  17.     if (x == 0.)
  18.         return 0.;
  19.     else {
  20.         yx = y/x;
  21.         return x*sqrt(1.+yx*yx);
  22.     }
  23. }
  24.